(define (fold knil kons l)
  (if (null? l)
      knil
      (kons (car l) (fold knil kons (cdr l)))))
